home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.2 / Group1 / Tarihdll.dll / 0 / RCDATA / TFMDOKTORBR / TFMDOKTORBR.txt
Text File  |  1998-07-24  |  11KB  |  379 lines
  1. object fmDOKTORBR: TfmDOKTORBR
  2.   Left = 58
  3.   Top = 30
  4.   ActiveControl = EditAd
  5.   BorderStyle = bsDialog
  6.   Caption = 'DOKTOR   KAYITLARI'
  7.   ClientHeight = 383
  8.   ClientWidth = 523
  9.   Color = clSilver
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   KeyPreview = True
  15.   Position = poScreenCenter
  16.   OnKeyDown = FormKeyDown
  17.   PixelsPerInch = 96
  18.   TextHeight = 14
  19.   object Panel1: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 523
  23.     Height = 57
  24.     HelpContext = 307
  25.     Align = alTop
  26.     BevelInner = bvLowered
  27.     BevelWidth = 3
  28.     BorderWidth = 1
  29.     Color = clNavy
  30.     Ctl3D = True
  31.     ParentCtl3D = False
  32.     TabOrder = 0
  33.     object Navigator: TDBNavigator
  34.       Left = 24
  35.       Top = 17
  36.       Width = 135
  37.       Height = 26
  38.       DataSource = doktorBrSRC
  39.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
  40.       Ctl3D = False
  41.       Hints.Strings = (
  42.         '∩┐╜lk kay∩┐╜t'
  43.         '∩┐╜nceki'
  44.         'Sonraki'
  45.         'SonKay∩┐╜t'
  46.         'Yeni Kay∩┐╜t'
  47.         'Kay∩┐╜t Sil'
  48.         'D∩┐╜zelt'
  49.         'Kaydet'
  50.         'Vazge∩┐╜'
  51.         'Tazele')
  52.       ParentCtl3D = False
  53.       ParentShowHint = False
  54.       ShowHint = True
  55.       TabOrder = 0
  56.       TabStop = True
  57.     end
  58.     object BitBtnSec: TBitBtn
  59.       Left = 417
  60.       Top = 16
  61.       Width = 89
  62.       Height = 27
  63.       HelpContext = 502
  64.       Caption = '&Se∩┐╜'
  65.       Font.Color = clNavy
  66.       Font.Height = -12
  67.       Font.Name = 'Arial Tur'
  68.       Font.Style = [fsBold]
  69.       ParentFont = False
  70.       ParentShowHint = False
  71.       ShowHint = False
  72.       TabOrder = 1
  73.       Visible = False
  74.       OnClick = BitBtnSecClick
  75.       Glyph.Data = {
  76.         76010000424D7601000000000000760000002800000020000000100000000100
  77.         04000000000000010000130B0000130B00000000000000000000000000000000
  78.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  79.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
  80.         333333333333337FF3333333333333903333333333333377FF33333333333399
  81.         03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
  82.         99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
  83.         99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
  84.         03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
  85.         33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
  86.         33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
  87.         3333777777333333333333333333333333333333333333333333}
  88.       Layout = blGlyphRight
  89.       NumGlyphs = 2
  90.       Spacing = 11
  91.     end
  92.   end
  93.   object Panel2: TPanel
  94.     Left = 0
  95.     Top = 57
  96.     Width = 523
  97.     Height = 269
  98.     HelpContext = 307
  99.     Align = alClient
  100.     BevelInner = bvLowered
  101.     BevelOuter = bvLowered
  102.     BorderWidth = 4
  103.     Caption = 'Panel2'
  104.     Color = clSilver
  105.     Font.Color = clBlack
  106.     Font.Height = -12
  107.     Font.Name = 'Arial'
  108.     Font.Style = []
  109.     ParentFont = False
  110.     TabOrder = 1
  111.     object Label3: TLabel
  112.       Left = 106
  113.       Top = 7
  114.       Width = 56
  115.       Height = 15
  116.       Caption = 'Aranan Ad'
  117.       Font.Color = clNavy
  118.       Font.Height = -12
  119.       Font.Name = 'Arial Tur'
  120.       Font.Style = []
  121.       ParentFont = False
  122.       Transparent = True
  123.     end
  124.     object Label4: TLabel
  125.       Left = 264
  126.       Top = 7
  127.       Width = 76
  128.       Height = 15
  129.       Caption = 'Aranan Soyad'
  130.       Font.Color = clNavy
  131.       Font.Height = -12
  132.       Font.Name = 'Arial Tur'
  133.       Font.Style = []
  134.       ParentFont = False
  135.     end
  136.     object DBGridDR: TDBGrid
  137.       Left = 91
  138.       Top = 50
  139.       Width = 349
  140.       Height = 210
  141.       Color = clTeal
  142.       Ctl3D = True
  143.       DataSource = doktorBrSRC
  144.       FixedColor = clSilver
  145.       Font.Color = clWhite
  146.       Font.Height = -12
  147.       Font.Name = 'Arial'
  148.       Font.Style = [fsBold]
  149.       Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  150.       ParentCtl3D = False
  151.       ParentFont = False
  152.       ReadOnly = True
  153.       TabOrder = 2
  154.       TitleFont.Color = clNavy
  155.       TitleFont.Height = -12
  156.       TitleFont.Name = 'Arial'
  157.       TitleFont.Style = [fsBold]
  158.       OnDblClick = DBGridDRDblClick
  159.     end
  160.     object EditAd: TEdit
  161.       Left = 106
  162.       Top = 23
  163.       Width = 151
  164.       Height = 23
  165.       Color = clSilver
  166.       Font.Color = clNavy
  167.       Font.Height = -12
  168.       Font.Name = 'Arial Tur'
  169.       Font.Style = []
  170.       MaxLength = 18
  171.       ParentFont = False
  172.       TabOrder = 0
  173.       OnEnter = EditAdEnter
  174.       OnKeyUp = EditAdKeyUp
  175.     end
  176.     object EditSoyad: TEdit
  177.       Left = 262
  178.       Top = 23
  179.       Width = 151
  180.       Height = 23
  181.       Color = clSilver
  182.       Font.Color = clNavy
  183.       Font.Height = -12
  184.       Font.Name = 'Arial Tur'
  185.       Font.Style = []
  186.       MaxLength = 18
  187.       ParentFont = False
  188.       TabOrder = 1
  189.       OnEnter = EditSoyadEnter
  190.       OnKeyUp = EditSoyadKeyUp
  191.     end
  192.   end
  193.   object Panel3: TPanel
  194.     Left = 0
  195.     Top = 326
  196.     Width = 523
  197.     Height = 57
  198.     HelpContext = 307
  199.     Align = alBottom
  200.     BevelInner = bvLowered
  201.     BevelWidth = 3
  202.     BorderWidth = 1
  203.     Color = clNavy
  204.     TabOrder = 2
  205.     object BitBtnYeni: TBitBtn
  206.       Left = 11
  207.       Top = 15
  208.       Width = 89
  209.       Height = 27
  210.       Hint = 'Insert Tu∩┐╜u'
  211.       Caption = 'Yeni Kay∩┐╜t'
  212.       Font.Color = clNavy
  213.       Font.Height = -12
  214.       Font.Name = 'Arial'
  215.       Font.Style = [fsBold]
  216.       ParentFont = False
  217.       ParentShowHint = False
  218.       ShowHint = True
  219.       TabOrder = 0
  220.       OnClick = BitBtnYeniClick
  221.       OnKeyDown = BitBtnYeniKeyDown
  222.       Glyph.Data = {
  223.         76010000424D7601000000000000760000002800000020000000100000000100
  224.         04000000000000010000130B0000130B00000000000000000000000000000000
  225.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  226.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  227.         33333333FF33333333FF333993333333300033377F3333333777333993333333
  228.         300033F77FFF3333377739999993333333333777777F3333333F399999933333
  229.         33003777777333333377333993333333330033377F3333333377333993333333
  230.         3333333773333333333F333333333333330033333333F33333773333333C3333
  231.         330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
  232.         993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
  233.         333333333337733333FF3333333C333330003333333733333777333333333333
  234.         3000333333333333377733333333333333333333333333333333}
  235.       Layout = blGlyphRight
  236.       NumGlyphs = 3
  237.     end
  238.     object BitBtnDegis: TBitBtn
  239.       Left = 114
  240.       Top = 15
  241.       Width = 89
  242.       Height = 27
  243.       Caption = '&De∩┐╜i∩┐╜tir'
  244.       Font.Color = clNavy
  245.       Font.Height = -12
  246.       Font.Name = 'Arial'
  247.       Font.Style = [fsBold]
  248.       ParentFont = False
  249.       ParentShowHint = False
  250.       ShowHint = False
  251.       TabOrder = 1
  252.       OnClick = BitBtnDegisClick
  253.       Glyph.Data = {
  254.         78010000424D7801000000000000760000002800000020000000100000000100
  255.         04000000000000000000120B0000120B00000000000000000000000000000000
  256.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  257.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  258.         000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
  259.         00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
  260.         F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
  261.         0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
  262.         FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
  263.         FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
  264.         0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
  265.         00333377737FFFFF7733333033000000033333373377777773330000}
  266.       Layout = blGlyphRight
  267.       NumGlyphs = 2
  268.       Spacing = 5
  269.     end
  270.     object BitBtnSil: TBitBtn
  271.       Left = 217
  272.       Top = 15
  273.       Width = 89
  274.       Height = 27
  275.       Hint = 'Ctrl Delete Tu∩┐╜u'
  276.       Caption = 'Kay∩┐╜t Sil'
  277.       Font.Color = clNavy
  278.       Font.Height = -12
  279.       Font.Name = 'Arial'
  280.       Font.Style = [fsBold]
  281.       ParentFont = False
  282.       ParentShowHint = False
  283.       ShowHint = True
  284.       TabOrder = 2
  285.       OnClick = BitBtnSilClick
  286.       Glyph.Data = {
  287.         78010000424D7801000000000000760000002800000020000000100000000100
  288.         04000000000000000000120B0000120B00000000000000000000000000000000
  289.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  290.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
  291.         555557777F777555F55500000000555055557777777755F75555005500055055
  292.         555577F5777F57555555005550055555555577FF577F5FF55555500550050055
  293.         5555577FF77577FF555555005050110555555577F757777FF555555505099910
  294.         555555FF75777777FF555005550999910555577F5F77777775F5500505509990
  295.         3055577F75F77777575F55005055090B030555775755777575755555555550B0
  296.         B03055555F555757575755550555550B0B335555755555757555555555555550
  297.         BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
  298.         50BB555555555555575F555555555555550B55555555555555750000}
  299.       Layout = blGlyphRight
  300.       NumGlyphs = 2
  301.       Spacing = 2
  302.     end
  303.     object BitBtnKapat: TBitBtn
  304.       Left = 320
  305.       Top = 15
  306.       Width = 89
  307.       Height = 27
  308.       Hint = 'Alt-F4 Tu∩┐╜u'
  309.       Caption = 'Kapat'
  310.       Font.Color = clNavy
  311.       Font.Height = -12
  312.       Font.Name = 'Arial'
  313.       Font.Style = [fsBold]
  314.       ParentFont = False
  315.       ParentShowHint = False
  316.       ShowHint = True
  317.       TabOrder = 3
  318.       Kind = bkClose
  319.       Layout = blGlyphRight
  320.     end
  321.     object BitBtnHelp: TBitBtn
  322.       Left = 423
  323.       Top = 15
  324.       Width = 89
  325.       Height = 27
  326.       Hint = 'F1 Tu∩┐╜u'
  327.       HelpContext = 306
  328.       Caption = 'Yard∩┐╜m'
  329.       Font.Color = clNavy
  330.       Font.Height = -12
  331.       Font.Name = 'Arial'
  332.       Font.Style = [fsBold]
  333.       ParentFont = False
  334.       ParentShowHint = False
  335.       ShowHint = True
  336.       TabOrder = 4
  337.       Kind = bkHelp
  338.       Layout = blGlyphRight
  339.     end
  340.   end
  341.   object doktorBrSRC: TDataSource
  342.     DataSet = doktorBr
  343.     Left = 209
  344.     Top = 15
  345.   end
  346.   object doktorBr: TTable
  347.     DatabaseName = 'ECZ'
  348.     IndexName = 'DR_AD_SOY'
  349.     TableName = 'DR.DB'
  350.     Left = 246
  351.     Top = 15
  352.     object doktorBrDRAD: TStringField
  353.       DisplayLabel = 'Ad∩┐╜'
  354.       FieldName = 'DRAD'
  355.       Size = 18
  356.     end
  357.     object doktorBrDRSOYAD: TStringField
  358.       DisplayLabel = 'Soyad∩┐╜'
  359.       FieldName = 'DRSOYAD'
  360.       Size = 18
  361.     end
  362.     object doktorBrDRKOD: TIntegerField
  363.       DisplayLabel = 'Kodu'
  364.       DisplayWidth = 7
  365.       FieldName = 'DRKOD'
  366.     end
  367.   end
  368.   object Query1: TQuery
  369.     DatabaseName = 'ECZ'
  370.     Params.Data = {010001000464726E6F00030400000000000000}
  371.     SQL.Strings = (
  372.       'SELECT RECETE.DRKOD'
  373.       'FROM RECETE'
  374.       'WHERE DRKOD=:drno')
  375.     Left = 377
  376.     Top = 106
  377.   end
  378. end
  379.